object AddDirDialog: TAddDirDialog Left = 582 Top = 213 BorderStyle = bsDialog Caption = 'Add Dirrectory' ClientHeight = 126 ClientWidth = 376 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Shell Dlg' Font.Style = [] OldCreateOrder = False Position = poOwnerFormCenter OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 8 Width = 45 Height = 13 Caption = '&Directory:' FocusControl = txtDir end object Label2: TLabel Left = 8 Top = 48 Width = 203 Height = 13 Caption = '&File Mask (separated with a Semicolon ";"):' FocusControl = cboMask end object txtDir: TEdit Left = 8 Top = 24 Width = 337 Height = 21 TabOrder = 0 OnChange = txtDirChange end object chkRecurse: TCheckBox Left = 8 Top = 96 Width = 145 Height = 17 Caption = '&Recurse subdirectories' TabOrder = 3 end object btnCancel: TCorelButton Left = 296 Top = 96 Width = 75 Height = 23 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 4 end object btnOK: TCorelButton Left = 216 Top = 96 Width = 75 Height = 23 Caption = 'OK' Default = True Enabled = False ModalResult = 1 TabOrder = 5 OnClick = btnOKClick end object cboMask: TComboBox Left = 8 Top = 64 Width = 361 Height = 21 ItemHeight = 13 TabOrder = 2 Items.Strings = ( '*.*' '*.htm;*.html' '*.pas;*.dpr' '*.cpp;*.c;*.hpp;*.h') end object btnBrowse: TCorelButton Left = 352 Top = 24 Width = 17 Height = 21 Hint = 'Browse' Caption = '...' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = btnBrowseClick end object BrowseForFolder: TBrowseForFolder Options = [boCenter] Left = 156 Top = 96 end end